 
IE.navigate "https://archive.org/account/login.php"

You can get an account with just your email address:

IE.navigate "https://archive.org/upload/"

Choose file to upload....   This is OK   .... then opens a details page...
 
Then enter details:


<div id="description_editor_div" style="display: block;">
<br>

<div class="wysiwyg"><div class="toolbar-wrap">
<ul class="toolbar" role="menu">
  <li title="Bold" class="bold" role="menuitem" unselectable="on">bold</li>
  <li title="Italic" class="italic" role="menuitem" unselectable="on">italic</li>
  <li title="Underline" class="underline" role="menuitem" unselectable="on">underline</li>
  <li class="separator" role="separator"></li>
  <li title="Insert Ordered List" class="insertOrderedList" role="menuitem" unselectable="on">insertOrderedList</li>
  <li title="Insert Unordered List" class="insertUnorderedList" role="menuitem" unselectable="on">insertUnorderedList</li>
  <li class="separator" role="separator"></li>
  <li title="Create link" class="createLink" role="menuitem" unselectable="on">createLink</li>
  <li class="separator" role="separator"></li>
  <li title="Decrease font size" class="decreaseFontSize" role="menuitem" unselectable="on">decreaseFontSize</li>
  <li title="Increase font size" class="increaseFontSize" role="menuitem" unselectable="on">increaseFontSize</li>
  <li class="separator" role="separator"></li>
  <li title="View source code" class="html" role="menuitem" unselectable="on">html</li>
</ul>

<div style="clear: both;"><!-- --></div>
</div><iframe height="40" tabindex="0" class="wysiwyg-input" id="description_editor-wysiwyg-iframe" src="javascript:false;" frameborder="0" scrolling="no"></iframe>
<textarea name="description_editor" id="description_editor" style="display: none;" rows="6" cols="50"></textarea>
</div>
              
</div>




IE.Document.getElementsByClassName("metadata_row")(0).Click
IE.Document.getElementsByClassName("input_field").Item(0).innerText = strEbookTitle
     delay 1
IE.Document.getElementsByClassName("metadata_row")(3).Click
IE.Document.getElementsByClassName("input_field").Item(0).innerText = strKeywords
     delay 1
IE.Document.getElementsByClassName("metadata_row")(4).Click
IE.Document.getElementsByClassName("input_field").Item(0).innerText = strAuthor
     delay 1
IE.Document.getElementsByClassName("metadata_row")(2).Click
     'Debug.Print strDescriptionOut
     
     
     
     ' Description  = "Add description here"
     IE.Visible = True
     IE.Document.focus
     delay 1
     SendKeys strDescriptionOut, True   ' SendKeys does not work
     delay intDelay
     
     
     
IE.Document.getElementsByClassName("metadata_row")(4).Click
IE.Document.getElementsByClassName("input_field").Item(0).innerText = strAuthor
delay 1
IE.Document.getElementById("upload_button").Click
IE.Document.getElementById("upload_button").FireEvent "onclick"


